WITH Ada.Text_IO;
PACKAGE Valeur IS

   -- Valeur d'une note
   SUBTYPE Valeur IS natural range 0..2000;

   -- Renvoie l'etat d'une note sous forme d'entier (0=>LIBRE, 1=>SIMULEE, 2=>ATTRIBUEE)
   SUBTYPE Etat2Natural IS natural range 0..2;

   PROCEDURE Get (X : OUT Valeur; S:String:="Entrez une note de la forme xx,yy");
   PROCEDURE GetFichier (F: Ada.Text_IO.File_Type;X : OUT Valeur);

   PROCEDURE Put(F: Ada.Text_IO.File_Type;X : IN Valeur);
   PROCEDURE PutFichier(F: Ada.Text_IO.File_Type;X : IN Valeur);

END Valeur;
